home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / loanapp / loanm1.bas < prev    next >
BASIC Source File  |  1995-05-08  |  11KB  |  356 lines
  1.  
  2. ' COPYRIGHT:
  3. '
  4. '   (C) Copyright Microsoft Corp. 1993.  All rights reserved.
  5. '
  6. '   You have a royalty-free right to use, modify, reproduce and
  7. '   distribute the Sample Files (and/or any modified version) in
  8. '   any way you find useful, provided that you agree that
  9. '   Microsoft has no warranty obligations or liability for any
  10. '   Sample Application Files which are modified.
  11. '
  12. Sub ClearPict1 ()
  13.     MainRec.A.A1 = ""
  14.     MainRec.A.A2 = ""
  15.     MainRec.A.A3 = ""
  16.     MainRec.A.A4 = ""
  17.     MainRec.A.A5 = ""
  18.     MainRec.A.A6 = ""
  19.     MainRec.A.A7 = ""
  20.     MainRec.A.AC1 = 0
  21.     UpdateLabelA
  22. End Sub
  23.  
  24. Sub ClearPict2 ()
  25.     MainRec.B.B1 = ""
  26.     MainRec.B.B2 = ""
  27.     MainRec.B.B3 = ""
  28.     MainRec.B.B4 = ""
  29.     MainRec.B.B5 = ""
  30.     Form1.LabelB.Caption = ""
  31.  
  32.     MainRec.C.C1 = ""
  33.     MainRec.C.C2 = ""
  34.     MainRec.C.C3 = ""
  35.     MainRec.C.C4 = ""
  36.     MainRec.C.C5 = ""
  37.     MainRec.C.CC1 = 0
  38.     For I = 1 To 5
  39.         Form1.LabelC(I).Caption = ""
  40.     Next I
  41.  
  42.     MainRec.D.D1 = ""
  43.     MainRec.D.D2 = ""
  44.     MainRec.D.D3 = ""
  45.     MainRec.D.D4 = ""
  46.     MainRec.D.D5 = ""
  47.     MainRec.D.D6 = ""
  48.     For I = 1 To 6
  49.         Form1.LabelD(I).Caption = ""
  50.     Next I
  51.  
  52.     MainRec.E.E1 = ""
  53.     MainRec.E.E2 = ""
  54.     MainRec.E.E3 = ""
  55.     MainRec.E.E4 = ""
  56.     MainRec.E.E5 = ""
  57.     For I = 1 To 5
  58.         Form1.LabelE(I).Caption = ""
  59.     Next I
  60.     Form1.Check1(1).Value = 0
  61.     Form1.Check1(2).Value = 0
  62.     
  63.     MainRec.F.F1 = ""
  64.     MainRec.F.F2 = ""
  65.     MainRec.F.F3 = ""
  66.     MainRec.F.FC1 = 0
  67.     For I = 1 To 3
  68.         Form1.LabelF(I).Caption = ""
  69.     Next I
  70.     For I = 1 To 2
  71.         Form1.Check1(I).Value = 0
  72.     Next I
  73.  
  74. End Sub
  75.  
  76. Sub ClearPict3 ()
  77.     MainRec.G.G1 = ""
  78.     MainRec.G.G2 = ""
  79.     MainRec.G.G3 = ""
  80.     MainRec.G.G4 = ""
  81.     MainRec.G.G5 = ""
  82.     MainRec.G.G6 = ""
  83.     MainRec.G.G7 = ""
  84.     MainRec.G.G8 = ""
  85.     MainRec.G.GC1 = 0
  86.     For I = 1 To 8
  87.         Form1.LabelG(I).Caption = ""
  88.     Next I
  89.  
  90.     MainRec.H.H1 = ""
  91.     MainRec.H.H2 = ""
  92.     MainRec.H.H3 = ""
  93.     MainRec.H.H4 = ""
  94.     MainRec.H.H5 = ""
  95.     MainRec.H.H6 = ""
  96.     MainRec.H.H7 = ""
  97.     MainRec.H.H8 = ""
  98.     MainRec.H.HC1 = 0
  99.     For I = 1 To 8
  100.         Form1.LabelH(I).Caption = ""
  101.     Next I
  102.  
  103.     MainRec.I.B1 = ""
  104.     MainRec.I.B2 = ""
  105.     MainRec.I.B3 = ""
  106.     MainRec.I.B4 = ""
  107.     MainRec.I.B5 = ""
  108.     Form1.LabelI(1).Caption = ""
  109.     Form1.LabelI(2).Caption = ""
  110.  
  111.     Form1.Label3(1).Caption = ""
  112.     Form1.Label3(2).Caption = ""
  113.     Form1.HEdit1.EraseInk = True
  114.     Form1.HEdit2.EraseInk = True
  115.  
  116. End Sub
  117.  
  118. Sub PrimeA ()
  119.     Form3.BEditF3(1).Text = MainRec.A.A1
  120.     Form3.BEditF3(2).Text = MainRec.A.A2
  121.     Form3.BEditF3(3).Text = MainRec.A.A3
  122.     Form3.BEditF3(4).Text = MainRec.A.A4
  123.     Form3.BEditF3(5).Text = MainRec.A.A5
  124.     Form3.BEditF3(6).Text = MainRec.A.A6
  125.     If MainRec.A.AC1 = 3 Then
  126.         Form3.BEditF3(7).Text = MainRec.A.A7
  127.     ElseIf MainRec.A.AC1 = 4 Then
  128.         Form3.BEditF3(8).Text = MainRec.A.A7
  129.     End If
  130.     If MainRec.A.AC1 <> 0 Then
  131.         Form3.Check1(MainRec.A.AC1).Value = 1
  132.     End If
  133.  
  134. End Sub
  135.  
  136. Sub UpdateDate (Index)
  137.     Form1.Label3(Index).Caption = MainRec.T.T1
  138. End Sub
  139.  
  140. Sub UpdateFormA ()
  141.     Form3.BEditF3(1).Text = MainRec.A.A1
  142.     Form3.BEditF3(2).Text = MainRec.A.A2
  143.     Form3.BEditF3(3).Text = MainRec.A.A3
  144.     Form3.BEditF3(4).Text = MainRec.A.A4
  145.     Form3.BEditF3(5).Text = MainRec.A.A5
  146.     Form3.BEditF3(6).Text = MainRec.A.A6
  147.     If MainRec.A.AC1 <> 0 Then
  148.         Form3.Check1(MainRec.A.AC1).Value = 1
  149.         If (MainRec.A.AC1 = 3) Or (MainRec.A.AC1 = 4) Then
  150.             Form3.BEditF3(4 + MainRec.A.AC1).Text = MainRec.A.A7
  151.         End If
  152.     End If
  153. End Sub
  154.  
  155. Sub UpdateFormB ()
  156.     Form10.BEditF10(1).Text = MainRec.B.B1
  157.     Form10.BEditF10(2).Text = MainRec.B.B2
  158.     Form10.BEditF10(3).Text = MainRec.B.B3
  159.     Form10.BEditF10(4).Text = MainRec.B.B4
  160.     Form10.BEditF10(5).Text = MainRec.B.B5
  161. End Sub
  162.  
  163. Sub UpdateFormC ()
  164.     Form4.BEditF4(1).Text = MainRec.C.C1
  165.     Form4.BEditF4(2).Text = MainRec.C.C2
  166.     Form4.BEditF4(3).Text = MainRec.C.C3
  167.     Form4.BEditF4(4).Text = MainRec.C.C4
  168.     If MainRec.C.CC1 <> 0 Then
  169.         Form4.Check1(MainRec.C.CC1).Value = 1
  170.         Form4.Check1((MainRec.C.CC1 Mod 3) + 1).Value = 0
  171.         Form4.Check1(((MainRec.C.CC1 + 1) Mod 3) + 1).Value = 0
  172.     Else
  173.         Form4.Check1(1).Value = 0
  174.         Form4.Check1(2).Value = 0
  175.         Form4.Check1(3).Value = 0
  176.     End If
  177. End Sub
  178.  
  179. Sub UpdateFormD ()
  180.     Form5.BEditF5(1).Text = MainRec.D.D1
  181.     Form5.BEditF5(2).Text = MainRec.D.D2
  182.     Form5.BEditF5(3).Text = MainRec.D.D3
  183.     Form5.BEditF5(4).Text = MainRec.D.D4
  184.     Form5.BEditF5(5).Text = MainRec.D.D5
  185.     Form5.BEditF5(6).Text = MainRec.D.D6
  186. End Sub
  187.  
  188. Sub UpdateFormE ()
  189.     Form6.BEditF6(1).Text = MainRec.E.E1
  190.     Form6.BEditF6(2).Text = MainRec.E.E2
  191.     Form6.BEditF6(3).Text = MainRec.E.E3
  192.     Form6.BEditF6(4).Text = MainRec.E.E4
  193.     Form6.BEditF6(5).Text = MainRec.E.E5
  194. End Sub
  195.  
  196. Sub UpdateFormF ()
  197.     Form7.BEditF7(1).Text = MainRec.F.F1
  198.     Form7.BEditF7(2).Text = MainRec.F.F2
  199.     Form7.BEditF7(3).Text = MainRec.F.F3
  200.     If MainRec.F.FC1 <> 0 Then
  201.         Form7.Check1(MainRec.F.FC1).Value = 1
  202.         Form7.Check1(3 - MainRec.F.FC1).Value = 0
  203.     Else
  204.         Form7.Check1(1).Value = 0
  205.         Form7.Check1(2).Value = 0
  206.     End If
  207. End Sub
  208.  
  209. Sub UpdateFormG ()
  210.     Form8.BEditF8(1).Text = MainRec.G.G1
  211.     Form8.BEditF8(2).Text = MainRec.G.G2
  212.     Form8.BEditF8(3).Text = MainRec.G.G3
  213.     Form8.BEditF8(4).Text = MainRec.G.G4
  214.     Form8.BEditF8(5).Text = MainRec.G.G5
  215.     Form8.BEditF8(6).Text = MainRec.G.G6
  216.     Form8.BEditF8(7).Text = MainRec.G.G7
  217.     If MainRec.G.GC1 <> 0 Then
  218.         Form8.Check1(MainRec.G.GC1).Value = 1
  219.         Form8.Check1((MainRec.G.GC1 Mod 3) + 1).Value = 0
  220.         Form8.Check1(((MainRec.G.GC1 + 1) Mod 3) + 1).Value = 0
  221.     Else
  222.         Form8.Check1(1).Value = 0
  223.         Form8.Check1(2).Value = 0
  224.         Form8.Check1(3).Value = 0
  225.     End If
  226. End Sub
  227.  
  228. Sub UpdateFormH ()
  229.     Form9.BEditF9(1).Text = MainRec.H.H1
  230.     Form9.BEditF9(2).Text = MainRec.H.H2
  231.     Form9.BEditF9(3).Text = MainRec.H.H3
  232.     Form9.BEditF9(4).Text = MainRec.H.H4
  233.     Form9.BEditF9(5).Text = MainRec.H.H5
  234.     Form9.BEditF9(6).Text = MainRec.H.H6
  235.     Form9.BEditF9(7).Text = MainRec.H.H7
  236.     If MainRec.H.HC1 <> 0 Then
  237.         Form9.Check1(MainRec.H.HC1).Value = 1
  238.         Form9.Check1((MainRec.H.HC1 Mod 3) + 1).Value = 0
  239.         Form9.Check1(((MainRec.H.HC1 + 1) Mod 3) + 1).Value = 0
  240.     Else
  241.         Form9.Check1(1).Value = 0
  242.         Form9.Check1(2).Value = 0
  243.         Form9.Check1(3).Value = 0
  244.     End If
  245. End Sub
  246.  
  247. Sub UpdateFormI ()
  248.     Form10.BEditF10(1).Text = MainRec.I.B1
  249.     Form10.BEditF10(2).Text = MainRec.I.B2
  250.     Form10.BEditF10(3).Text = MainRec.I.B3
  251.     Form10.BEditF10(4).Text = MainRec.I.B4
  252.     Form10.BEditF10(5).Text = MainRec.I.B5
  253. End Sub
  254.  
  255. Sub UpdateFormJ ()
  256.     Form10.BEditF10(1).Text = MainRec.J.B1
  257.     Form10.BEditF10(2).Text = MainRec.J.B2
  258.     Form10.BEditF10(3).Text = MainRec.J.B3
  259.     Form10.BEditF10(4).Text = MainRec.J.B4
  260.     Form10.BEditF10(5).Text = MainRec.J.B5
  261. End Sub
  262.  
  263. Sub UpdateLabelA ()
  264.     Form1.LabelA(1).Caption = LTrim$(RTrim$(MainRec.A.A1))
  265.     Form1.LabelA(2).Caption = LTrim$(RTrim$(MainRec.A.A2))
  266.     Form1.LabelA(3).Caption = LTrim$(RTrim$(MainRec.A.A3))
  267.     Form1.LabelA(4).Caption = LTrim$(RTrim$(MainRec.A.A4))
  268.     Form1.LabelA(5).Caption = LTrim$(RTrim$(MainRec.A.A5))
  269.     Form1.LabelA(6).Caption = LTrim$(RTrim$(MainRec.A.A6))
  270.     If MainRec.A.AC1 <> 0 Then
  271.         Form1.LabelA(7).Caption = Form3.Check1(MainRec.A.AC1).Caption + " " + MainRec.A.A7
  272.     Else
  273.         Form1.LabelA(7).Caption = ""
  274.     End If
  275. End Sub
  276.  
  277. Sub UpdateLabelB ()
  278.     Form1.LabelB.Caption = LTrim$(RTrim$(MainRec.B.B1)) + " " + LTrim$(RTrim$(MainRec.B.B2)) + ", " + LTrim$(RTrim$(MainRec.B.B3)) + " " + LTrim$(RTrim$(MainRec.B.B4))
  279. End Sub
  280.  
  281. Sub UpdateLabelC ()
  282.     Form1.LabelC(1).Caption = MainRec.C.C1
  283.     Form1.LabelC(2).Caption = MainRec.C.C2
  284.     Form1.LabelC(3).Caption = MainRec.C.C3
  285.     Form1.